home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / J-M / MegaHome II.cpt / MegaHome II / Preferences / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-11-11  |  1KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2837</cardID>
  8.     <listID>3518</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>224</width>
  14.         <height>64</height>
  15.     </cardSize>
  16.     <script>on openStackglobal vPfAput 5 into vPfAend openStackfunction binary decimalif decimal is empty then exit binaryput"128,64,32,16,8,4,2,1" into binSetrepeat with i=1 to 8if (decimal/(item i of binSet))<1then put "0" after convertedelseput "1" after convertedsubtract (item i of binSet) from decimalend ifend repeatreturn convertedend binaryfunction binToChar binaryif binary is empty then exit binToCharreturn numToChar(decimal(binary))end binToCharfunction decimal binaryif binary is empty then exit decimalput "128,64,32,16,8,4,2,1" into binSetput 0 into convertedrepeat with i=1 to 8if char i of binary is 1 then add (item i of binSet) to convertedend repeatreturn convertedend decimal</script>
  17.     <background id="2633" file="background_2633.xml" name="" />
  18.     <card id="2837" file="card_2837.xml" marked="false" name="" owner="2633" />
  19. </stack>
  20.